home *** CD-ROM | disk | FTP | other *** search
- object Form4: TForm4
- Left = 351
- Top = 174
- Width = 365
- Height = 398
- BorderIcons = [biSystemMenu]
- Caption = 'Set category'
- Color = clBtnFace
- Constraints.MaxWidth = 365
- Constraints.MinWidth = 365
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poMainFormCenter
- OnClose = FormClose
- OnCreate = FormCreate
- OnShow = FormShow
- DesignSize = (
- 357
- 364)
- PixelsPerInch = 96
- TextHeight = 13
- object Button1: TButton
- Left = 94
- Top = 330
- Width = 75
- Height = 25
- Anchors = [akLeft, akBottom]
- Caption = 'OK'
- Default = True
- TabOrder = 4
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 191
- Top = 330
- Width = 75
- Height = 25
- Anchors = [akLeft, akBottom]
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 5
- OnClick = Button2Click
- end
- object NewEdit: TEdit
- Left = 9
- Top = 244
- Width = 296
- Height = 21
- Anchors = [akLeft, akBottom]
- TabOrder = 1
- OnEnter = NewEditEnter
- OnExit = NewEditExit
- OnKeyDown = NewEditKeyDown
- OnKeyPress = NewEditKeyPress
- end
- object Button3: TButton
- Left = 310
- Top = 241
- Width = 33
- Height = 25
- Anchors = [akLeft, akBottom]
- Caption = 'Add'
- TabOrder = 2
- OnClick = Button3Click
- end
- object GroupBox1: TGroupBox
- Left = 10
- Top = 272
- Width = 335
- Height = 45
- Anchors = [akLeft, akBottom]
- Caption = ' Multiple selection '
- TabOrder = 3
- object SetCheck: TCheckBox
- Left = 9
- Top = 18
- Width = 97
- Height = 17
- Caption = 'Set values'
- TabOrder = 0
- end
- object ClearCheck: TCheckBox
- Left = 125
- Top = 18
- Width = 97
- Height = 17
- Caption = 'Clear values'
- TabOrder = 1
- end
- end
- object CatTreeView: TVirtualStringTree
- Left = 8
- Top = 8
- Width = 337
- Height = 225
- Anchors = [akLeft, akTop, akBottom]
- CheckImageKind = ckSystemFlat
- DefaultNodeHeight = 15
- Header.AutoSizeIndex = 0
- Header.Font.Charset = DEFAULT_CHARSET
- Header.Font.Color = clWindowText
- Header.Font.Height = -11
- Header.Font.Name = 'MS Sans Serif'
- Header.Font.Style = []
- Header.MainColumn = -1
- Header.Options = [hoColumnResize, hoDrag]
- ParentBackground = False
- TabOrder = 0
- TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes]
- TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
- TreeOptions.SelectionOptions = [toFullRowSelect]
- OnBeforeItemErase = CatTreeViewBeforeItemErase
- OnCompareNodes = CatTreeViewCompareNodes
- OnGetText = CatTreeViewGetText
- Columns = <>
- end
- object ActionList1: TActionList
- Left = 32
- Top = 328
- object aClose: TAction
- Caption = 'aClose'
- ShortCut = 27
- OnExecute = aCloseExecute
- end
- end
- end
-